

; PLUGIN STEP 3: CONSTRUCTOR FUNCTION

(defun Factor-Analysis
  (&key 
  (data *current-data*)     ; universal keyword
   (dialog nil)             ; universal keyword
   )
  (send efa-model-object-proto  :new "Factor-Analysis" data dialog))
  

 

;; PLUGIN STEP 4: DEFPROTO STATEMENT

(defproto efa-model-object-proto '(data pca-or-fa method-value corcov-value niter init-eigenvalues nfactors nobs nvars initial-communalities extrac-communalities factor-load extrac-eigen) () vista-analysis-plugin-object-proto )



;; PLUGIN STEP 5: CODE LOAD STATEMENTS
;; The additional files must be in a subdirectory and 


(load (strcat *efa-plugin-path* "efa-analysis.lsp"))
(load (strcat *efa-plugin-path* "efa-visualize.lsp"))
(load (strcat *efa-plugin-path* "FactorLeew.lsp"))



;; PLUGIN STEP 6: ISNEW METHOD

(defmeth efa-model-object-proto :isnew (title data dialog)
     (call-next-method title data dialog))
